10 GOTO200
15 FORL=ITOLEN(M$(A)):S$=MID$(M$(A),L,I):M=T:IFS$="-"THENM=DL
20 POKEVO,F:POKEW,K:FORD=1TOM:NEXT:POKEVO,Z:POKEW,U:FORD=1TOES:NEXT:NEXT
30 FORD=ITOBF:GETK$:PRINTK$;
32 IFK$=CHR$(Q)ANDB$<>""THENB$=LEFT$(B$,LEN(B$)-I):GOTO30
34 IFK$=CHR$(QQ)THENB$="":PRINT"[147]":GOTO30
36 B$=B$+K$:NEXT
38 IFB$<>""THEN50
40 GETK$:IFK$=""THEN40
45 B$=K$:PRINTB$;
50 A=ASC(B$):B$=RIGHT$(B$,LEN(B$)-I):IFA>LLTHEN250
60 IFA=SPTHENFORD=ITOWS:NEXT:GOTO38
70 A=A-FF:IFA<ITHENA=I
80 GOTO15
90 GOTO20
100 IFPEEK(C)=ZTHENL=L+I:IFL<HTHEN100
110 L=Z:IFPEEK(C)=ZTHENPRINT" ";
112 IFPEEK(G)=YTHENPOKE198,Z:GOTO245
115 IFPEEK(C)=ZTHEN112
120 L=L+I:IFPEEK(C)THEN120
130 IFL>HTHENX=X+X:H=(E*H+L+L+N)/F:GOTO150
140 X=X+X+I:H=(H+H+H+L+L+J)/B
150 L=Z:IFX>RTHENX=I:GOTO100
160 IFPEEK(C)=ZTHENL=L+I:IFL+L<HTHEN160
170 IFNOTL+L<HTHEN190
180 IFPEEK(C)THENL=Z:GOTO100
190 PRINTMID$(R$,X,I);:X=I:L=Z:GOTO100
200 DIMM$(51):FORL=1TO51:READM$(L):NEXT:S=20:GOSUB601
205 POKE53281,O:POKE53280,O:PRINT"[147]":FORI=54272TO54296:POKEI,O:NEXT
210 PRINTSPC(10)"J/64 MORSE SEND/REC":PRINTSPC(9)"SPEED (5 TO 80)"S"[157][157][157][157][157]";
215 INPUTS:IFS<5ORS>80THEN210
216 POKE54272,65:POKE54273,51:WF=54276:AD=54277:SR=54278:WV=65:WI=WV+1
217 POKEWF,WI:POKEAD,Z:POKESR,240:POKEWF,WV:POKE54275,8:POKE54274,O
220 PRINT"[147]":VO=54296:Z=O:W=56576:K=147:U=151:T=2300/S^1.25
225 BF=T/12:ES=7500/S^2:FF=39:LL=90:SP=32:WS=3*T:DL=3*T:IFS>30THENDL=4*T
230 R$=" TEMNAIOGKDWRUS??QZYCXBJP?L?FVH09?8???7?+&??/=61????)?@2???3!45"
235 R$=R$+"???????:????,?????(??;????????-??'????????.??'????????????$"
240 B=4:E=9:F=12:H=16:C=56577:G=197:I=1:J=2:N=6:Q=20:QQ=19:R=122:X=1:Y=57
241 POKE56579,254
245 PRINT:PRINTSPC(18)"XMT":GOTO40
250 IFA>132ANDA<141THENA=A-132:ONAGOTO310,330,350,370,320,340,360,380
255 IFA=95THENPRINT:PRINTSPC(16)"RECEIVE[146]":GOTO190
260 GOTO210
310 K$="   CQ CQ CQ DE W5VKC W5VKC K ":GOTO45
320 PRINT:PRINT:INPUT"STATION CALL";C$
325 PRINT:INPUT"NAME";N$
328 PRINT"[147]":GOTO40
330 K$=" "+C$+" DE W5VKC "+B$:GOTO45
340 K$=" QTH VAN ALSTYNE, TX ? VAN ALSTYNE, TX ABT 50 MI N DALLAS. = "+B$:GOTO45
350 K$="SO HW CPY "+N$+"? )[134]K":GOTO45
360 K$=" RIG HR TEN TEC TRITON 4 INTO A DIPOLE = KEYING WID A CBM 64 COMPUTER"
361 K$=K$+" = FRIEND WB5AYD WROTE SOFTWARE = "+B$:GOTO45
370 B$="":PRINT"[147]"SPC(15)"COMPOSING"
371 GETK$:IFK$=CHR$(136)THENPRINT:PRINTSPC(15)" SENDIND [146]":GOTO38
372 IFK$=""THEN371
373 PRINTK$;:IFASC(K$)>132THENPRINT""MID$("13572468",ASC(K$)-132,1)"[146]";
374 IFK$=CHR$(20)THENB$=LEFT$(B$,LEN(B$)-1):GOTO371
375 IFLEN(B$)=255THENPRINT"";:GOTO371
376 B$=B$+K$:GOTO371
380 K$=" DE W5VKC "+B$:GOTO45
500 DATA........,.-.-.,-...-.-,-.--.,--..--,...-.-,.-.-.-,-..-.
510 DATA-----,.----,..---,...--,....-,.....,-....,--...,---..,----.
520 DATA---...,-.-.-.,<,-...-,>,..--..,.-...
530 DATA.-,-...,-.-.,-..,.,..-.,--.,....,..,.---,-.-,.-..,--,-.
540 DATA---,.--.,--.-,.-.,...,-,..-,...-,.--,-..-,-.--,--..
601 POKE53281,1:PRINT"[147][152]            64 MORSE R/T"
602 PRINT"         ADAPTED FOR THE 64":PRINT"                 BY"
603 PRINT"              TIM HAM [146]"
604 PRINT"   FROM 'J/20 MORSE R/T' BY R. MYERS"
605 PRINT"      LIST 63000- FOR HOOKUP INFO.
606 [129]T[178]1[164]5000:[130]T:[142]
63000 WRITE:  PUBLIC DOMAIN ,INC.                    5025 S. RANGELINE RD.
63001 :     WEST MIL[164]N, OHIO 45383
63002 :
63003 : IN[160] $1.00 [129] BACK ISSUE.
63004 :   ASK [129] VOL.1 NO.21 [129]
63005 : THE RECIEVE [173] TRANSMIT CIRCUIT                [129] J[173]20 M[176]SE.
63006 : JOURNAL[173]20 WAS PUBLISHED                  BY MIKE APSEY W5VKC